home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 January & February / rerun-1986-01-02.d64 / baroque music 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  166 lines
  1. 2 fors=54272to54296:pokes,0:next
  2. 4 l1=54272:h1=54273:w1=54276:a1=54277:s1=54278
  3. 6 l2=54279:h2=54280:w2=54283:a2=54284:s2=54285:v=54296
  4. 8 dimh(650,2),l(650,2),d(650,2)
  5. 9 mult=8:plays=1
  6. 10 v(0)=33:v(1)=17
  7. 11 poke53280,2:poke53281,0
  8. 12 print"[147]";tab(14)"invention #4"
  9. 14 printtab(14)"[163][163][163][163][163][163][163][163][163][163][163][163]"
  10. 16 printtab(14)"by j.s. bach"
  11. 18 print:printtab(13)"transcribed by"
  12. 20 print:printtab(13)"jim mccutcheon"
  13. 22 printtab(15)"be patient."
  14. 24 printtab(10)"great art takes time."
  15. 35 ify$="s"thenprinttab(6)"(but hardly any for this one)":goto45
  16. 40 printtab(3)"(or about 70 seconds in this case)"
  17. 45 print"":fort=1to5000:next
  18. 50 onplaysgosub1000,1100,1200,1300
  19. 55 if y$="s" thengoto160
  20. 60 fork=0to1
  21. 70 i=0
  22. 80 readdec,dr:dec=mult*dec
  23. 90 ifdr=0then150
  24. 100 wf=v(k):wx=wf-1
  25. 110 hf%=dec/256:lf%=dec-256*hf%
  26. 115 ifdr=1thenh(i,k)=hf%:l(i,k)=lf%:d(i,k)=wf
  27. 117 ifdr=1theni=i+1:goto80
  28. 120 forj=1todr-1:h(i,k)=hf%:l(i,k)=lf%:d(i,k)=wf
  29. 125 i=i+1:next
  30. 130 h(i,k)=hf%:l(i,k)=lf%:d(i,k)=wx
  31. 140 i=i+1:goto80
  32. 150 nextk
  33. 160 pokea1,64:pokes1,192:pokea2,132:pokes2,98:poke54295,1:poke54296,31
  34. 165 poke54294,213
  35. 170 p1=0:p2=0
  36. 180 pokel1,l(p1,0):pokeh1,h(p1,0):pokel2,l(p2,1):pokeh2,h(p2,1)
  37. 190 pokew1,d(p1,0):pokew2,d(p2,1)
  38. 200 fort=1to10:nextt
  39. 210 p1=p1+1:p2=p2+1
  40. 215 ifp1=650goto410
  41. 400 goto180
  42. 410 fort=1to2000:next:print"do you want to hear it again? y[146]es/n[146]o"
  43. 415 getz$:ifz$=""goto415
  44. 420 ifz$="y"thenplays=plays+1:goto435
  45. 425 ifz$="n"then goto460
  46. 430 print"what?":goto415
  47. 435 if plays>4 then plays=1
  48. 437 print"would you care to hear it in a differentkey? d[146]ifferent/s[146]ame"
  49. 440 gety$:ify$=""goto440
  50. 445 ify$="s"goto12
  51. 447 ify$<>"d"thenprint"what?":goto440
  52. 450 mult=int(4+rnd(1)*12)
  53. 452 ifmult>7andmult<9goto450
  54. 453 restore:goto12
  55. 460 print"[147]  j.s.bach enjoyed making music with"
  56. 465 print"  new sounds. he probably would have"
  57. 470 print"      had a lot of fun with a 64!"
  58. 475 print"   i hope you enjoyed this lesson on"
  59. 480 print"            baroque music."
  60. 485 end
  61. 500 data0,1,602,2,675,2,716,2,803,2,902,2,955,2
  62. 501 data568,2,955,2,902,2,803,2,716,2,675,2
  63. 502 data716,4,902,4,1204,4,803,4,1136,4,1351,4
  64. 503 data1204,2,1351,2,1432,2,1607,2,1804,2,1911,2
  65. 504 data1136,2,1911,2,1804,2,1607,2,1432,2,1351,2
  66. 505 data1432,2,1204,2,1351,2,1432,2,1607,2,1804,2
  67. 506 data955,2,1804,2,1607,2,1432,2,1351,2,1204,2
  68. 507 data1351,2,1072,2,1204,2,1351,2,1432,2,1607,2
  69. 508 data902,2,1607,2,1432,2,1351,2,1204,2,1072,2
  70. 509 data1204,2,1351,2,1432,2,1204,2,1351,2,1432,2,803,1,758,1,803,3,0,7
  71. 510 data1072,2,1204,2,1351,2,1072,2,1204,2,1351,2,716,1,675,1,716,3,0,3
  72. 511 data955,8,902,4,803,4,1072,2,955,2,902,2,803,2,716,2,675,2,716
  73. 512 data2,803,1,0,1,902,1,803,1,902,1,803,3,716,1,0,1,716,4,1072,1,0,3,1072,1
  74. 513 data0,3,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1,1204,1,1072
  75. 514 data1,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1
  76. 515 data1204,1,1072,1,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1,1204,1,1072,1
  77. 516 data1204,1,1072,1,1204,1,1072,1,1204,1,1072,3,955,2,902,2,803,2,716,2,675,2
  78. 517 data1072,2,602,2,675,2,758,2,803,2,902,2
  79. 518 data955,2,902,2,803,2,716,2,675,2,602,2
  80. 519 data955,2,536,2,602,2,675,2,716,2,803,2
  81. 520 data902,2,1012,2,1072,2,1204,2,1351,2,1432,2
  82. 521 data851,2,1432,2,1351,2,1204,2,1072,2,1012,2
  83. 522 data1072,2,1012,2,1204,2,1072,2,1012,2,902,2
  84. 523 data851,2,902,2,851,2,758,2,675,2,602,2
  85. 524 data536,2,602,2,675,2,758,2,851,2,902,2
  86. 525 data602,2,1072,2,1012,2,902,2,851,2,758,2
  87. 526 data675,2,758,2,851,2,902,2,1012,2,1072,2
  88. 527 data758,2,1351,2,1204,2,1072,2,1012,2,902,2
  89. 528 data851,2,902,2,1012,2,1072,2,1204,2,1351,2
  90. 529 data902,2,1432,2,1351,2,1204,2,1072,2,1012,2
  91. 530 data1804,2,1703,2,1517,2,1351,2,1804,6,1204,2,1072,1,1012,1,1072,1,1012,3
  92. 531 data902,1,0,1,902,4,0,2,902,2,955,2,1072,2,602,2,0,2,758,2,0,2,902,2,0,2
  93. 532 data955,2,803,2,902,2,955,2,1072,2,1204,2
  94. 533 data675,2,1204,2,1072,2,955,2,902,2,803,2,902,4,1432,2,1351,2,1432,1,0,1
  95. 534 data803,1,902,1,803,2,0,2,1351,4,0,4,1204,2,1351,2,1432,2,1607,2,1804,2,1911
  96. 535 data2,1136,2,1911,2,1804,2,1607,2,1432,2,1351,2,1432,2,0,2,1204,2,0,2,803,6
  97. 536 data1204,2,1136,2,1351,2,902,2,1136,2,1204,2,1012,2,1204,1,1136,1,1204,1
  98. 537 data1136,3,1204,1,0,1,1204,2,1072,2,955,2,902,2,803,2,716,2
  99. 538 data955,2,568,2,602,2,675,2,716,2,803,2,902,2,1204,3,716,1,675,1,716,3
  100. 539 data675,4,602,3,0,2,602,1,568,1,602,25,0,0
  101. 600 data0,1,0,24,602,2,675,2,716,2,803,2,902,2,955,2
  102. 601 data568,2,955,2,902,2,803,2,716,2,675,2
  103. 602 data716,4,902,4,1204,4,675,4,803,4,1136,4
  104. 603 data602,2,0,2,1204,2,0,2,716,2,0,2,803,4,902,4,955,4
  105. 604 data536,2,0,2,1072,2,0,2,675,2,0,2,716,4,803,4,902,4
  106. 605 data955,2,803,2,902,2,955,2,1072,2,1204,2
  107. 606 data675,2,1204,2,1072,2,955,2,902,2,803,2
  108. 607 data902,2,716,2,803,2,902,2,955,2,1072,2
  109. 608 data602,2,1072,2,955,2,902,2,803,2,716,2
  110. 609 data675,2,536,2,602,2,675,2,716,2,803,2
  111. 610 data451,2,803,2,716,2,675,2,602,2,536,2
  112. 611 data602,2,477,2,536,3,0,1,268,3,0,1,358,2,401,2,451,2,477,2,536,2,602,2
  113. 612 data337,2,602,2,536,2,477,2,451,2,401,2
  114. 613 data451,2,477,2,536,2,602,2,675,2,716,2
  115. 614 data401,2,716,2,675,2,602,2,536,2,477,2
  116. 615 data451,2,477,2,536,2,451,2,477,2,536,2,379,1,358,1,379,2,0,8
  117. 616 data401,2,451,2,477,2,401,2,451,2,477,2,337,1,318,1,337,2,0,8
  118. 617 data358,4,716,1,0,3,602,1,0,3,506,1,0,3,425,1,0,3,337,1,0,3
  119. 618 data451,2,425,2,451,2,506,2,536,2,602,2
  120. 619 data716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1
  121. 620 data716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1
  122. 621 data716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1
  123. 622 data716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1
  124. 623 data716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1,716,1,675,1
  125. 624 data675,4,1351,4,1204,4,1072,4,1012,4,902,4,1204,4,1351,4,1432,4
  126. 625 data1204,4,1351,2,0,2,675,2,0,2,902,2,451,2,477,2,536,2,602,2,637,2
  127. 626 data379,2,637,2,602,2,536,2,477,2,451,2,401,4,0,2,401,2,451,2,477,2
  128. 627 data536,2,0,2,401,2,0,2,268,2,0,2,716,2,803,2,902,2,1012,2,1136,2,1204,2
  129. 628 data675,2,1204,2,1136,2,1012,2,902,2,803,2,716,4,902,4,1204,4
  130. 629 data675,4,803,4,1136,4,602,2,675,2,716,2,803,2,902,2,955,2
  131. 630 data568,2,955,2,902,2,803,2,716,2,675,2,716,2,803,2,902,3,0,1,451,3,0,1
  132. 631 data477,6,536,2,477,2,451,2,401,2,955,2,902,2,803,2,716,2,675,2
  133. 632 data716,2,803,3,902,5,451,7,0,2,602,27,0,0
  134. 1000 print"[145]    an invention[154][146] is a piece of music"
  135. 1010 print"     constructed (or invented) from"
  136. 1020 print"    a small number of musical ideas."
  137. 1030 print"  you can hear these musical fragments"
  138. 1040 print"    repeated several times throughout"
  139. 1050 print"   the piece at different pitch levels"
  140. 1060 print"  as well as upside down, or stretched"
  141. 1070 print"        and compressed in time.[145]":return
  142. 1100 print"[145]   j[154][146]ohann  s[154][146]ebastian bach[154][146] was born in"
  143. 1110 print"    1685 into a family of musicians"
  144. 1120 print"     which flourished from the late"
  145. 1130 print"    1500's to the early 1800's. his"
  146. 1140 print"   family contained so many musicians"
  147. 1150 print"     that all musicians in the area "
  148. 1160 print"      were referred to as 'bachs'.[145]":return
  149. 1200 print"[145]   counterpoint[154][146] is a style of writing"
  150. 1210 print" music with more than one voice playing"
  151. 1220 print"  at the same time. notes were called"
  152. 1230 print"    'points' and each melody played"
  153. 1240 print"   against,or 'counter' to the others."
  154. 1250 print"  contrapuntal music reached a peak of"
  155. 1260 print" perfection in high- (or late-) baroque"
  156. 1270 print"    music of j.s.bach and g.f.handel.[145]":return
  157. 1300 print"[145]  j.s.bach liked the sound of the lute"
  158. 1310 print"very much. in fact he had a harpsichord"
  159. 1320 print"   built for him which had a setting"
  160. 1330 print" called a buff stop which imitated the"
  161. 1340 print"    sound. baroque lutes had over 30"
  162. 1350 print"   strings and it was rumored that it"
  163. 1360 print"  would take 10 years to learn to play"
  164. 1370 print"    the lute- with the first 9 spent"
  165. 1380 print"           getting it in tune.[145]":return
  166.